home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / gfxfx / raster.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-21  |  4KB  |  132 lines
  1. {$g+}
  2.  
  3. program raster;
  4. { First 'raster', Try Copper5 instead, by Bas van Gaalen, Holland, PD }
  5. const
  6.   rgb : array[0..299] of longint = (
  7.     $00000000,$00000000,$00000000,$00010000,$00020000,
  8.     $00030000,$00040000,$00050000,$00060000,$00070000,
  9.     $00080000,$00090000,$000a0000,$000b0000,$000c0000,
  10.     $000d0000,$000e0000,$000f0000,$00100000,$00110000,
  11.     $00120000,$00130000,$00140000,$00150000,$00160000,
  12.     $00170000,$00180000,$00190000,$001a0000,$001b0000,
  13.     $001c0000,$001d0000,$001e0000,$001f0000,$00200000,
  14.     $00210000,$00220000,$00230000,$00240000,$00250000,
  15.     $00260000,$00270000,$00280000,$00290000,$002a0000,
  16.     $002b0000,$002c0000,$002d0000,$002e0000,$002f0000,
  17.     $00300000,$00310000,$00320000,$00330000,$00340000,
  18.     $00350000,$00360000,$00370000,$00380000,$00390000,
  19.     $003a0000,$003b0000,$003c0000,$003d0000,$003e0000,
  20.     $003f0000,$003f0100,$003e0200,$003d0300,$003c0400,
  21.     $003b0500,$003a0600,$00390700,$00380800,$00370900,
  22.     $00360a00,$00350b00,$00340c00,$00330d00,$00320e00,
  23.     $00310f00,$00301000,$002f1100,$002e1200,$002d1300,
  24.     $002c1400,$002b1500,$002a1600,$00291700,$00281800,
  25.     $00271900,$00261a00,$00251b00,$00241c00,$00231d00,
  26.     $00221e00,$00211f00,$00202000,$001f2100,$001e2200,
  27.     $001d2300,$001c2400,$001b2500,$001a2600,$00192700,
  28.     $00182800,$00172900,$00162a00,$00152b00,$00142c00,
  29.     $00132d00,$00122e00,$00112f00,$00103000,$000f3100,
  30.     $000e3200,$000d3300,$000c3400,$000b3500,$000a3600,
  31.     $00093700,$00083800,$00073900,$00063a00,$00053b00,
  32.     $00043c00,$00033d00,$00023e00,$00013f00,$00003f01,
  33.     $00003e02,$00003d03,$00003c04,$00003b05,$00003a06,
  34.     $00003907,$00003808,$00003709,$0000360a,$0000350b,
  35.     $0000340c,$0000330d,$0000320e,$0000310f,$00003010,
  36.     $00002f11,$00002e12,$00002d13,$00002c14,$00002b15,
  37.     $00002a16,$00002917,$00002818,$00002719,$0000261a,
  38.     $0000251b,$0000241c,$0000231d,$0000221e,$0000211f,
  39.     $00002020,$00001f21,$00001e22,$00001d23,$00001c24,
  40.     $00001b25,$00001a26,$00001927,$00001828,$00001729,
  41.     $0000162a,$0000152b,$0000142c,$0000132d,$0000122e,
  42.     $0000112f,$00001030,$00000f31,$00000e32,$00000d33,
  43.     $00000c34,$00000b35,$00000a36,$00000937,$00000838,
  44.     $00000739,$0000063a,$0000053b,$0000043c,$0000033d,
  45.     $0000023e,$0000013f,$0000003f,$0000003e,$0000003d,
  46.     $0000003c,$0000003b,$0000003a,$00000039,$00000038,
  47.     $00000037,$00000036,$00000035,$00000034,$00000033,
  48.     $00000032,$00000031,$00000030,$0000002f,$0000002e,
  49.     $0000002d,$0000002c,$0000002b,$0000002a,$00000029,
  50.     $00000028,$00000027,$00000026,$00000025,$00000024,
  51.     $00000023,$00000022,$00000021,$00000020,$0000001f,
  52.     $0000001e,$0000001d,$0000001c,$0000001b,$0000001a,
  53.     $00000019,$00000018,$00000017,$00000016,$00000015,
  54.     $00000014,$00000013,$00000012,$00000011,$00000010,
  55.     $0000000f,$0000000e,$0000000d,$0000000c,$0000000b,
  56.     $0000000a,$00000009,$00000008,$00000007,$00000006,
  57.     $00000005,$00000004,$00000003,$00000002,$00000001,
  58.     $00000000,$00000000,$00000000,$00000000,$00000000,
  59.     $00000000,$00000000,$00000000,$00000000,$00000000,
  60.     $00000000,$00000000,$00000000,$00000000,$00000000,
  61.     $00000000,$00000000,$00000000,$00000000,$00000000,
  62.     $00000000,$00000000,$00000000,$00000000,$00000000,
  63.     $00000000,$00000000,$00000000,$00000000,$00000000,
  64.     $00000000,$00000000,$00000000,$00000000,$00000000,
  65.     $00000000,$00000000,$00000000,$00000000,$00000000,
  66.     $00000000,$00000000,$00000000,$00000000,$00000000);
  67.  
  68. var
  69.   i : word;
  70.  
  71. begin
  72.   asm
  73.     cli
  74.    @l0:
  75.     mov dx,03dah
  76.    @l1:
  77.     in al,dx
  78.     test al,8
  79.     jnz @l1
  80.    @l2:
  81.     in al,dx
  82.     test al,8
  83.     jz @l2
  84.  
  85.     mov cx,300
  86.    @l3:
  87.  
  88.     mov dx,03c8h
  89.     xor al,al
  90.     out dx,al
  91.     inc dx
  92.     mov si,cx
  93.     shl si,2
  94.     mov al,byte ptr rgb[si]
  95.     out dx,al
  96.     inc si
  97.     mov al,byte ptr rgb[si]
  98.     out dx,al
  99.     push dx
  100.  
  101.     mov dx,03dah
  102.    @l4:
  103.     in al,dx
  104.     test al,1
  105.     jnz @l4
  106.    @l5:
  107.     in al,dx
  108.     test al,1
  109.     jz @l5
  110.  
  111.     pop dx
  112.     inc si
  113.     mov al,byte ptr rgb[si]
  114.     out dx,al
  115.     loop @l3
  116.  
  117.     mov dx,03c8h
  118.     xor al,al
  119.     out dx,al
  120.     inc dx
  121.     out dx,al
  122.     out dx,al
  123.     out dx,al
  124.  
  125.     mov dx,60h
  126.     in al,dx
  127.     cmp al,1
  128.     jne @l0
  129.     sti
  130.   end;
  131. end.
  132.